home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Amiga Public Domain Connection / APDC Disk #025 - Programming Languages (198x)(Amiga Public Domain Connection)(US)[m][WB].zip / APDC Disk #025 - Programming Languages (198x)(Amiga Public Domain Connection)(US)[m][WB].adf / Modula-2 / m2 / Narrator.DEF < prev    next >
Text File  |  1988-03-15  |  1KB  |  32 lines
  1. (********************************************************************************
  2.  
  3. Name         : Narrator.DEF
  4. Version      : 1.0
  5. Purpose      : Interface to Narrator Device
  6. Author       : ms
  7. Modified     : 3.4.86  22:45 ms
  8.  
  9. ********************************************************************************)
  10.  
  11. DEFINITION MODULE Narrator;
  12.  
  13. TYPE  NarrateErr  = ( ndOk, ndNoMem, ndNoAudLib, ndMakeBad, ndUnitErr,
  14.                       ndCantAlloc, ndUnimpl, ndNoWrite, ndExpunged,
  15.                       ndPhonErr, ndRateErr, ndPitchErr, ndSexErr, ndModeErr,
  16.                       ndFreqErr, ndVolErr );
  17.       NarratePara = RECORD
  18.                       pitch: [65..320];        (*     110 *)
  19.                       rate: [40..400];         (*     150 *)
  20.                       vol: [0..64];            (*      64 *)
  21.                       freq: [5000..28000];     (*   22200 *)
  22.                       sex: (male, female);     (*    male *)
  23.                       mode: (natural, robotic) (* natural *)
  24.                     END;
  25.       NarrParaPtr = POINTER TO NarratePara;
  26.  
  27.  
  28. PROCEDURE Narrate(phon: ARRAY OF CHAR;paraPtr: NarrParaPtr;VAR err: NarrateErr);
  29.  
  30.  
  31. END Narrator.
  32.